;xxxxxxxxxxxxxxxxxx ENTER 1-5 ANNOUNCEMENTS xxxxxxxxxxxxxxxxxxxxx
[GetAnnouncements]
IF annType1 = ""
SET annType1 = 0
ENDIF
IF annType2 = ""
SET annType2 = 0
ENDIF
IF annType3 = ""
SET annType3 = 0
ENDIF
IF annType4 = ""
SET annType4 = 0
ENDIF
IF annType5 = ""
SET annType5 = 0
ENDIF
SET aLnkTxtAr = "" ;link text array
SET annData1 = "" ;data arrays for annc1-5, each holding 7 fields
SET annData2 = ""
SET annData3 = ""
SET annData4 = ""
SET annData5 = ""
GOSUB InitAnnPrmptVars
SETTEMP aType1 = annType1
SETTEMP aType2 = annType2
SETTEMP aType3 = annType3
SETTEMP aType4 = annType4
SETTEMP aType5 = annType5
BACKSTOP
PAGE
TYPE MULTIPLECOMBOS
WIZPIC wizpics\wizannc.gif
DESCRIPTION_RE txt1n," If you decide to have announcements in the news section, you can have from one to five of them, and choose from many different types for each.\n\nChoose the category of each announcement from the lists below. Pick the category '",aFld0,"' to leave one or more blank)."
DESCRIPTION On the screens that follow you will enter the details for the announcement(s) you have selected.\n\nBecause news deteriorates with age, the wizard is especially flexible in his handling of news announcements for you.\n\nYou can review, make changes, replace, or remove these at any time.
SETTEMP txt2n = " You can review and change any of those you previously entered, or leave them as they are.\n\nIf you change the categories, you will be prompted to enter the details for each. To remove or omit one, choose the category '",aFld0,"'."
ELSE
SETTEMP txt2n = " You can add announcements now in any combination, and you will then be prompted to enter information for them."
SETTEMP txt1nA = txt1nA,"\nYou previously had an announcement of this type in your news section.\n\nYou can change its content, simply review its content, or leave it as before. Do you want to review or replace it, or just leave it?"
SETTEMP temp = ""
BACKSTOP
PAGE
WIZPIC wizpics\wizchoz3.gif
TYPE RADIOBUTTONS
NAME temp
DESCRIPTION_RE txt1nA
ARGUMENT "&Review or change this announcement"@Yes
ARGUMENT "&Skip the review and leave as is"@No
;xxxxxxxxxxxxxxxxxxx INPUT ONE ANNOUNCEMENT xxxxxxxxxxxxxxxxxxxx
[GetSingleAnnouncement]
;set the link text
SETTEMP temp = "ann",thisAnnType,"LnkTx"
SET arrayelement( aLnkTxtAr nAnnc ) = eval( temp )
SETTEMP ann1Desc1 = "Enter the name of the person whose achievement is being described here. If you have a picture of the person, you can add it here to display on the announcement page."
SETTEMP ann1Desc2 = "Enter a short description of the achievement. For example, 'Made the Honor Roll' or 'Was Named to Dean's List' or 'Was named Most Valuable Player'.\n\nAlso enter the date of the achievement. For a nicer appearance, spell out the month. Then provide a further description of the achievement. This might include a description of the work that lead to this award, and so on."
SETTEMP ann1Prompts = "P&icture for the page:@Person's n&ame:@&Achievement name:@&Date of Achievement:@&Description:"
SETTEMP ann1DefPix = "CLIP_ART\MISC\FIRWRKS.GIF"
SETTEMP ann1LnkTx = "Wow! Look at This!"
SETTEMP ann1WizP = "wizpics\awardwiz.gif"
; award - pg type 2 flds: name, awrd name, date, txt, pix
SETTEMP ann2Head = "AWARD"
SETTEMP ann2Desc1 = "Enter the name of the person who won the award. If you have a picture of the person who won the award, you can include it on the announcement page."
SETTEMP ann2Desc2 = "Fill in the name of the award which was won and the date the award was received. Spell out the month and year for best appearance on the Web page.\n\nAlso, add any other information that you would like to share about the person or the award. For example, you could provide an additional description of the award or how the person worked to get the award."
SETTEMP ann3Desc1 = "Fill in the newborn baby's name, and the time and date of birth. Spell out the month for nicer appearance and be sure to include AM or PM for the time. Also fill in the names of the baby's parents."
SETTEMP ann3Desc2 = "How much did the baby weigh when born and how long was the baby at birth? For best appearance on the page, spell out the unit of measure. For example, '6 pounds, 3 ounces' and '22 inches'. You can also provide a description of the events surrounding the birth that you might want to share."
SETTEMP ann3Desc3 = "If you have a photograph of the new baby or the proud parents, you can add it here."
SETTEMP ann3Prompts = "&Baby's name:@&Date and time of birth:@&Dad and mom names@&Length at birth:@&Baby's weight:@&More details:@P&icture:"
SETTEMP ann4Desc1 = "Enter the name of the person celebrating a birthday. If you have one, you can add a picture of the birthday person or a photo from the celebration."
SETTEMP ann4Desc2 = "Now provide more details about the birthday celebration. How old is the person celebrating a birthday, and what is the exact date of the birthday? Fill in any other details, such as how this birthday was celebrated, special gifts, and other interesting information."
SETTEMP ann4Prompts = "P&icture:@N&ame of person having birthday:@&Age:@&The birthday date:@&More details:"
; College Acceptance - pg type 5 flds: name, schl name, schl loc, start date, major, txt, pix
SETTEMP ann5Head = "COLLEGE ACCEPTANCE"
SETTEMP ann5Desc1 = "Enter the name of the student who has just been accepted to college. Fill in the name of the college or university and where it's located."
SETTEMP ann5Desc2 = "Now provide more details about this event. Enter the date the student will start attending this college. Spell out the month and year, or just the time. For example, 'September 1997' or 'Fall 1998'. Also enter the student's major, and any other information you would like to share (such as the student's future plans)."
SETTEMP ann5Desc3 = "If you have one available, you can add a picture of the student here."
SETTEMP ann5Prompts = "&Student's n&ame:@&College / University name:@&Location:@&Starting date:@&Major or course of study:@&More details:@P&icture:"
SETTEMP ann6Desc1 = "Enter the name of the deceased loved one and the date of death. For nicest appearance on the Web page, spell out the month. If there is any other information you would like to share about your loved one, enter it in the box at the bottom."
SETTEMP ann6Desc2 = "If you have one available, you can add a picture of the decedent here. The picture will be displayed on the announcement page."
SETTEMP ann6Prompts = "&Loved one's name:@&Date of death:@&Additional information:@P&icture:@"
; Engagement - pg type 2 flds: couple names, eng date, wedng date, txt, pix
SETTEMP ann7Head = "ENGAGEMENT"
SETTEMP ann7Desc1 = "Fill in the names of the bride and groom to-be. If you have one, you can include a picture of the happy couple to display on the announcement page."
SETTEMP ann7Desc2 = "Enter the date they got engaged and the date they intend to marry.\n\nIf the wedding date is indefinite, write something like 'Spring of 1998'. To improve the appearance, spell out the month for both dates. Then fill in additional information you wish to share about either person or the engagement."
; Expecting - pg type 2 flds: prnt names, due date, gender, txt, pix
SETTEMP ann8Head = "EXPECTING A BABY"
SETTEMP ann8Desc1 = "Fill in the names of the expectant parents. You can include a picture of the soon-to-be parents, if you have one."
SETTEMP ann8Desc2 = "Enter the date the baby is expected (spell out the month). If you know the gender of the baby and you want to tell your family and friends, fill it in too.\n\nIn the space at the bottom, provide any other information you would like to share about the impending event."
SETTEMP ann9Desc1 = "Fill in the name of the graduate. Also enter the name of the school and its location (city, state)."
SETTEMP ann9Desc2 = "Enter the student's graduation date. For best appearance, spell out the month. In the box at the bottom, fill in other details you would like to share, such as degrees earned, job offers, or additional schooling to follow."
SETTEMP ann9Desc3 = "If you have one, you can add a picture of the graduate here to display on the announcement page."
SETTEMP ann9Prompts = "&Graduate's name:@&School name:@&Location of school:@&Graduation date:@&More details:@P&icture:"
; New home - pg type 2 flds: name, city, move date, txt, pix
SETTEMP ann10Head = "NEW HOME / MOVING"
SETTEMP ann10Desc1 = "Fill in the names of the family members who are moving into the new home. If you have one, you can put a picture of the new home here."
SETTEMP ann10Desc2 = "Enter the location of the new home (city, town, neighborhood, etc.). Fill in the exact or approximate move date (for example, March '98 or Fall of 1998).\n\nAlso enter any other details you would like to share, such as a description of the house, whether or not they're using a mover, and so on."
SETTEMP ann10Prompts = "P&icture:@N&ames of those who are moving:@&Location of new home:@&Date of move:@&More details:"
; New job - pg type 2 flds: name, company, start date, txt, pix
SETTEMP ann11Head = "NEW JOB"
SETTEMP ann11Desc1 = "Fill in the name of the person starting the new job. If you have one, you can add a picture of the person to display on the announcement page."
SETTEMP ann11Desc2 = "Regarding the new job, fill in the name of the company and the starting date of the new job. Spell out the month for best appearance.\n\nYou can also provide other information and details about the new job, such as title, job duties, or the location of the company."
SETTEMP ann11Prompts = "P&icture:@N&ame of person:@&Company name:@&Starting Date:@&More Details:"
SETTEMP ann12Desc1 = "Enter the name of the person retiring here and when he/she is retiring. If you enter a date, spell out the month for better appearance. An indefinite date is OK too, such as 'Fall of 1998'. In the box at the bottom provide other details you would like to share, such as future plans."
SETTEMP ann12Desc2 = "If you have one, you can add a picture of the person retiring here. The picture will be displayed on the announcement page."
; School Acceptance - pg type 3 flds: name, schlname, schl loc, start date, txt, pix
SETTEMP ann13Head = "SCHOOL ACCEPTANCE"
SETTEMP ann13Desc1 = "Enter the name of the student who has just been accepted to the new school and fill in the name and location of the new school."
SETTEMP ann13Desc2 = "Enter the date the student will be starting this school. Spell out the month if you write it. An approximate date is OK too, such as 'Fall of 1998'. Provide any other details you can, such as the student's plans after graduation, major, and so on."
SETTEMP ann13Desc3 = "If you have a picture of the lucky student, you can include it to display on the announcement page."
SETTEMP ann13Prompts = "&Student's name:@S&chool's name:@&Location of school:@&Date to start:@&More details:@P&icture:"
; Shower - pg type 5 flds: name, date, loc, #guests, date 2(wed/brth), txt, pix
SETTEMP ann14Head = "SHOWER"
SETTEMP ann14Desc1 = "Fill in some information about the shower. Enter the name of the bride or mother to-be. Fill in the date the shower was held (or is being held) and the location (for example, 'Aldonzo's Eatery', or 'Aunt Sophie's house')."
SETTEMP ann14Desc2 = "Provide more details about the shower. Tell the number of guests that attended the shower, the future date of the wedding or the baby's due date, and any other information that you would like to share (Was she surprised? What kind of gifts were given?)."
SETTEMP ann14Desc3 = "If you have one, you can put a picture of the bride or mother-to-be here, or a picture from the shower."
SETTEMP ann14Prompts = "N&ame of bride or mother to-be:@&Date of the shower:@&Location:@&Number of guests:@&Date of wedding or due date:@&More details:@P&icture:"
SETTEMP ann15Desc1 = "Enter the names of the bride and groom and fill in the wedding date. For best appearance, spell out the name of the month."
SETTEMP ann15Desc2 = "Fill in the name of the place where the wedding is going to be (or was). You can include the name of the place where the reception was held too. Then fill in more details about the wedding. For example, the number of guests, where the couple is going on their honeymoon or where they are going to live."
SETTEMP ann15Desc3 = "If you have one available, you can add a picture of the happy couple to display on the announcement page."
